home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / EditScript.AmiCAD < prev    next >
Text File  |  1998-02-02  |  1KB  |  45 lines
  1. /* EditScript.AmiCAD, Chez Corbin, Mercredi 16 Juillet 1997, version 1.00 */
  2. /* Chargement automatique d'un script dans AmiTex depuis AmiCAD */
  3. /* L'appel se fait en sélectionnant l'un des onze menus Macros/ARexx
  4.  * et en enfonçant en même temps la touche CONTROL (Ctrl).
  5.  * Le script doit se trouver dans le répertoire assigné REXX:
  6.  * Il doit aussi posséder l'extension .AmiCAD à son nom */
  7.  
  8. parse arg script            /* récupération du nom du script */
  9. if script = "" then exit
  10.  
  11. signal on error             /* pour l'interception des erreurs */
  12. signal on syntax
  13.  
  14. options results
  15.  
  16. port = ADDRESS()                    /* lecture du nom du port AmiCAD */
  17.  
  18. address command
  19. if ~show(p, "AMITEX") then do       /* à améliorer... (AMITEX0, AMITEX1...) */
  20.     f=0                 /* il n'y avait pas de fenêtre ouverte */
  21.     'run > nil:' "c:AmiTex"         /* chargement de l'éditeur */
  22.     waitforport "AMITEX"
  23. end
  24. else f=1                /* il y a déjà une fenêtre active */
  25.  
  26. ADDRESS (AMITEX)
  27. cr='0a'x
  28.  
  29. if f=1 then 'NEW("")'               /* demande l'ouverture d'une autre fenêtre */
  30. 'LOAD("'script'.AmiCAD")'           /* demande le chargement du script */
  31.  
  32. exit
  33.  
  34. /* Traitement des erreurs, interruption du programme */
  35. syntax:
  36. address (port)
  37. erreur=RC
  38. 'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  39. exit
  40.  
  41. error:
  42. address (port)
  43. 'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  44. exit
  45.